# tr.tcl -- simple interface to the translation system
#
# CONTENTS:
#	tr {str}
#		Translates $str into the language specified
#		in $LI (which again is loaded from the config
#		at startup). If $LI is "en" (english), [tr] returns
#		$str without it being translated

proc tr {str} {
	global LI
	
	if { $LI == "en" } {
		return $str
	}
	
	return [mc $str]
}
